home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / sat.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.4 KB  |  50 lines
  1. 5   PI=3.1416
  2. 10  REM SATELLITE PATH LOSS CALCULATIONS
  3. 20  PRINT "SATELLITE SYSTEM DESIGN   TSC  3/26/80": PRINT:
  4. 25  PRINT,"K2UYH ----- modified for ibm pd ----- wa2tif":PRINT
  5. 30  DEF FNA(X,Y)=2*SQR(10^((10*LOG((0.55*4*PI^2)/Y^2)/LOG(10)-X)/(-10)))
  6. 40  DEF FNG(A,B)=10*LOG(0.55*4*(PI^2)*((A/2)^2)/(B^2))/LOG(10)
  7. 50  INPUT "UP LINK TRANSMITTER POWER IN WATTS "; W1: BK=0
  8. 60  P1=10*LOG(W1*1000)/LOG(10): PRINT "POWER IN DBM ="; P1
  9. 70  INPUT "UP LINK FREQUENCY IN MHZ "; F1
  10. 80  L1=983.311/F1: PRINT "WAVELENGTH IN FEET ="; L1
  11. 90  INPUT "DISTANCE TO SATELLITE IN MILES "; D
  12. 100  LU=-10*LOG(4560*F1^2*D^2)/LOG(10): PRINT "PATH LOSS IN DB ="; LU
  13. 110  INPUT "DO YOU WISH TO SPECIFY ANT IN TERMS OF 'SIZE' OR 'GAIN'"; Q$
  14. 120  IF Q$ = "SIZE" THEN 160 ELSE IF Q$ = "GAIN" THEN 140
  15. 130  PRINT "? TYPE EITHER 'SIZE' OR 'GAIN'": GOTO 110
  16. 140  INPUT "ANTENNA GAIN IN DB(ISO) ="; G1
  17. 150  D1=FNA(G1,L1): PRINT "EQUIVALENT DISH DIA IN FT ="; D1: GOTO 180
  18. 160  INPUT "EQUIV DISH DIA IN FT "; D1
  19. 170  G1=FNG(D1,L1): PRINT "GAIN IN DB(ISO) ="; G1
  20. 180  INPUT "GAIN OF SATELLITE RECEIVING ANT IN DB(ISO) "; GR
  21. 190  SI=P1+G1+LU+GR: PRINT "SIGNAL AT SAT RECEIVER IN DBM ="; SI
  22. 200  INPUT "SAT RECEIVER NF IN DB "; NS: NS=10^(NS/10): TS=293*(NS-1)
  23. 210  INPUT "SAT ANT TEMPERATURE ="; TT: TS=TS+TT
  24. 220  INPUT "SYSTEM BANDWIDTH IN HZ ="; BW: N1=10*LOG(BK*TS*BW)/LOG(10)
  25. 230  SN=SI-N1: PRINT "INPUT SNR IN DB ="; SN: PRINT:
  26. 240  INPUT "DO YOU WANT TO CALC DOWN LINK (Y/N) "; Q$
  27. 250  IF Q$="N" THEN END
  28. 260  PRINT: PRINT "DOWN LINK CALCULATION": PRINT:
  29. 270  INPUT "SATELLITE OUTPUT POWER IN WATTS ="; W2
  30. 280  P2=10*LOG(W2*1000)/LOG(10): PRINT "POWER OUT IN DBM ="; P2
  31. 290  SG=P2-SI: PRINT "REQUIRED SAT REPEATER GAIN IN DB ="; SG
  32. 300  INPUT "DOWN LINK FREQUENCY IN MHZ ="; F2
  33. 310  L2=983.311/F2: PRINT "DOWNLINK WAVELENGTH IN FT ="; L2
  34. 320  INPUT "IS DOWN LINK DISTANCE THE SAME (Y/N)"; Q$
  35. 330  IF Q$="N" THEN INPUT "NEW DISTANCE IN MILES ="; D
  36. 340  LD=-10*LOG(4560*F2^2*D^2)/LOG(10): PRINT "DOWNLINK PATH LOSS IN DB="; LD
  37. 350  INPUT "DOWNLINK SAT ANTENNA GAIN IN DB(ISO) ="; GD
  38. 360  INPUT "DO YOU WISH TO SPECIFY RECEIVING ANT IN TERMS OF 'SIZE' OR 'GAIN'"; Q$
  39. 370  IF Q$ = "SIZE" THEN 410 ELSE IF Q$ = "GAIN" THEN 390
  40. 380  PRINT "? TYPE EITHER 'SIZE' OR 'GAIN'": GOTO 360
  41. 390  INPUT "RECEIVER ANTENNA GAIN IN DB(ISO) ="; G2
  42. 400  D2=FNA(G2,L2): PRINT "EQUIVALENT DISH DIA IN FT ="; D2: GOTO 440
  43. 410  INPUT "EQUIV DISH DIA IN FT "; D2
  44. 420  G2=FNG(D2,L2): PRINT "GAIN IN DB(ISO) ="; G2
  45. 430  SI=P2+G2+LD+GD: PRINT "SIGNAL AT RECEIVER IN DBM ="; SI
  46. 440  INPUT "RECEIVER NF IN DB "; NS: NS=10^(NS/10): TS=293*(NS-1)
  47. 450  INPUT "RECEIVER ANT TEMPERATURE ="; TT: TS=TS+TT
  48. 460  NS=10^(N1/10): N2=10*LOG(BK*TS*BW+NS)/LOG(10)
  49. 470  SN=SI-N2: PRINT "RECEIVER SNR IN DB ="; SN: END
  50.